home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / medical / mendelge.cpt / MendelGenetics / MENDELIAN GENETICS I / card_99981.txt < prev    next >
Text File  |  1989-06-13  |  8KB  |  318 lines

  1. -- card: 99981 from stack: in
  2. -- bmap block id: 116150
  3. -- flags: 0000
  4. -- background id: 2665
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=327 top=27 right=49 bottom=427
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: RESET
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global pot
  23.   global sumdatai
  24.   put 0 into card field f1
  25.   put 0 into card field f2
  26.   put 0 into card field f3
  27.   put 0 into card field f4
  28.   put 0 into card field obsI
  29.   put 0 into card field expI
  30.   put 0 into card field obsII
  31.   put 0 into card field expII
  32.   put 0 into card field homochi
  33.   put 0 into pot
  34.   put 0 into sumdatai
  35. end mouseUp
  36.  
  37.  
  38.  
  39. -- part 2 (field)
  40. -- low flags: 00
  41. -- high flags: 0002
  42. -- rect: left=268 top=63 right=82 bottom=384
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 0 / 0
  45. -- text alignment: 0
  46. -- font id: 3
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: F1
  51.  
  52.  
  53. -- part 3 (field)
  54. -- low flags: 00
  55. -- high flags: 0002
  56. -- rect: left=269 top=86 right=105 bottom=385
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 0
  60. -- font id: 3
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: F2
  65.  
  66.  
  67. -- part 4 (field)
  68. -- low flags: 00
  69. -- high flags: 0002
  70. -- rect: left=269 top=109 right=128 bottom=385
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 0
  74. -- font id: 3
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: F3
  79.  
  80.  
  81. -- part 5 (field)
  82. -- low flags: 00
  83. -- high flags: 0002
  84. -- rect: left=270 top=132 right=151 bottom=386
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 0
  88. -- font id: 3
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: F4
  93.  
  94.  
  95. -- part 6 (field)
  96. -- low flags: 00
  97. -- high flags: 0002
  98. -- rect: left=270 top=172 right=195 bottom=323
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 0
  102. -- font id: 3
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: OBSI
  107.  
  108.  
  109. -- part 7 (field)
  110. -- low flags: 00
  111. -- high flags: 0002
  112. -- rect: left=334 top=173 right=196 bottom=387
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 0
  116. -- font id: 3
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: EXPI
  121.  
  122.  
  123. -- part 8 (button)
  124. -- low flags: 00
  125. -- high flags: 8003
  126. -- rect: left=400 top=221 right=243 bottom=500
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 0 / 0
  129. -- text alignment: 1
  130. -- font id: 0
  131. -- text size: 12
  132. -- style flags: 0
  133. -- line height: 16
  134. -- part name: CALCULATE
  135. ----- HyperTalk script -----
  136. on mouseUp
  137.   global sumdatai
  138.   put the value of ((((card field obsI) - ( card field expI))^2) / (card field expI)) into sumdatai
  139.   add the value of ((((card field obsII) - (card field expII))^2) / (card field expII)) to sumdatai
  140.   put the value of (card field f1 + card field f2 + card field f3 + card field f4) - sumdatai into card field homochi
  141.   if the value of card field homochi <=0 then put the value of ((card field homochi) * -1) into card field homochi
  142. end mouseUp
  143.  
  144.  
  145.  
  146. -- part 9 (field)
  147. -- low flags: 00
  148. -- high flags: 0002
  149. -- rect: left=347 top=275 right=293 bottom=441
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 0
  153. -- font id: 3
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: homochi
  158.  
  159.  
  160. -- part 10 (field)
  161. -- low flags: 00
  162. -- high flags: 0002
  163. -- rect: left=271 top=212 right=235 bottom=324
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 0
  167. -- font id: 3
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: OBSII
  172.  
  173.  
  174. -- part 11 (field)
  175. -- low flags: 00
  176. -- high flags: 0002
  177. -- rect: left=334 top=213 right=236 bottom=387
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 0
  181. -- font id: 3
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: EXPII
  186.  
  187.  
  188. -- part 12 (button)
  189. -- low flags: 00
  190. -- high flags: 8003
  191. -- rect: left=403 top=315 right=337 bottom=503
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: CHI SQUARE
  200. ----- HyperTalk script -----
  201. on mouseUp
  202.   global bagten
  203.   put the value of card field homochi into bagten
  204.   go to card id 24053
  205.   put the value of "bagten" into card field f1
  206. end mouseUp
  207.  
  208.  
  209.  
  210.  
  211. -- part 13 (button)
  212. -- low flags: 00
  213. -- high flags: 8003
  214. -- rect: left=293 top=314 right=336 bottom=393
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 0 / 0
  217. -- text alignment: 1
  218. -- font id: 0
  219. -- text size: 12
  220. -- style flags: 0
  221. -- line height: 16
  222. -- part name: NEXT
  223. ----- HyperTalk script -----
  224. on mouseUp
  225.   go to card id 25732
  226.   delete line 1 of card field class1
  227.   get the location of card field class1
  228.   click at it
  229. end mouseUp
  230.  
  231.  
  232.  
  233.  
  234. -- part 14 (button)
  235. -- low flags: 00
  236. -- high flags: 8003
  237. -- rect: left=205 top=315 right=337 bottom=256
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: NEXT
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   go to next card
  249. end mouseUp
  250.  
  251.  
  252.  
  253. -- part 15 (button)
  254. -- low flags: 00
  255. -- high flags: 8003
  256. -- rect: left=149 top=314 right=337 bottom=199
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 0 / 0
  259. -- text alignment: 1
  260. -- font id: 0
  261. -- text size: 12
  262. -- style flags: 0
  263. -- line height: 16
  264. -- part name: PREV.
  265. ----- HyperTalk script -----
  266. on mouseUp
  267.   go back
  268. end mouseUp
  269.  
  270.  
  271.  
  272. -- part contents for background part 1
  273. ----- text -----
  274. HOMOGENIETY CHI SQUARE
  275.  
  276. -- part contents for card part 2
  277. ----- text -----
  278. 0.222222
  279.  
  280. -- part contents for card part 3
  281. ----- text -----
  282. 1.08
  283.  
  284. -- part contents for card part 4
  285. ----- text -----
  286. 0.157895
  287.  
  288. -- part contents for card part 5
  289. ----- text -----
  290. 1.173913
  291.  
  292. -- part contents for card part 6
  293. ----- text -----
  294. 70
  295.  
  296. -- part contents for card part 7
  297. ----- text -----
  298. 68.25
  299.  
  300. -- part contents for card part 10
  301. ----- text -----
  302. 21
  303.  
  304. -- part contents for card part 11
  305. ----- text -----
  306. 22.75
  307.  
  308. -- part contents for card part 9
  309. ----- text -----
  310. 2.454543
  311.  
  312. -- part contents for background part 2
  313. ----- text -----
  314. The homogeniety chi-square allows you to determine whether or not data from several different samplings can be combined. In other words, are the individual chi-squares homogeneous. In essence it sums the chi-squares of each individual sample and from this value, subtracts the chi-square of the summed data. The result is a homogeniety chi-square which indicates the homogeniety of the individual chi-square values. If the homogeniety chi-square has a probability below the 5% level of significance, the individual readings can be considered to be non-homogeneous and they should not be combined. This program allows you to check the homogeniety of four individual readings. The data is automatically logged into the appropriate windows by clicking on the HOMOGENIETY button in the normal Chi-Square program. Each chi-square consists of a pair of observations and the expected values based on the hypothetical explanation of the spread. The data is automatically summed so that all the student has to do is click on the CALCULATE button to obtain the homogeniety chi-square. When the summed observation chi-square is subtracted from the summed chi-squares, one degree of freedom should be subtracted also. Thus, if you are comparing four sets of data, you will be operating under 3 degrees of freedom.
  315.  
  316. -- part contents for background part 8
  317. ----- text -----
  318. 189